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- TITLE LISseolv - Execute EDI 
IDENT /1-001/ 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPHENT CORPORATION, MAYNARD. MASSACHUSETTS. 


f 
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0 * 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWA E OR ANY OTHER * 
OPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
& 
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; LARRASAALAAALAALALALALLALALALESEAARASERARARES RARER RRR RRR RRR RE RRR R ARREARS SO 
++ 

; FACILITY: General Utility Library 

; ABSTRACT: 


This module contains LIBSEDIV, which makes the VAX EDIV instruction 
available as a callable procedure. 


; ENVIRONMENT: Runs at any access mode, AST Reentrant 
; AUTHOR: Steven B. Lionel, CREATION DATE: 8-July-1981 
; MODIFIED BY: 

; 1-001 - Original. SBL 8-July-1981 
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K 2 
eager ‘pees ERECIBEL TERT INGE. MESEAGiBaansy PO 
»SBTTL DECLARATIONS 
; LIBRARY MACRO CALLS: 
SSSDEF ; Defi 
SCHFDEF ; Defi 
EXTERNAL DECLARATIONS: 


$ symbols 
F$ symbols 


-DSABL GBL ; Force all external symbols to be declared 
e-EXTRN LIBSSIG_TO_RET ; Convert signal to return with status 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


.PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


SSNS SDD DDD PAP AD TUTTI 
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LIBSEDIV 
1-001 


00000004 
00000008 
0000000C 


00000010 


L 2 
e EDIV instruction 17360-1388 $3: 9:1 AX/VM 
- Execute EDIV instruction 6-SEP-1984 11:06:0 LIBRT 
a -SBTTL LIBSEDIV = Execute EDIV instruction 
FUNCTIONAL DESCRIPTION: 


This procedure makes the VAX EDIV instruction available as 
a callable procedure. 


S 
L.SRCJLIBEDIV.MAR; 1 


? 


The dividend argument is divided by the divisor argument; 

the quotient argument is replaced y the qyet ens and the 

remainder argument is replaced by the rema 

For more information, see the VAX-11 Architecture Handbook. 
CALLING SEQUENCE: 


status.wlc.v = LIBSEDIV (divisor.rl.r, dividend.rq.r, 
quotient.wl.r, remainder.wl.r) 


nder. 


FORMAL PARAMETERS: 


divisor = 4 ; The address of the longword integer divisor. 

dividend = 8 ; The address of the quadword integer dividend. 

quotient = 12 ; The address of the Longuore integer Location 
; where the quotient will be stored. 


remainder = 16 The address of the longword integer Location 


where the remainder will be stored. 


; IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL, normal successful completion 
SS$_INTOVF, integer overflow 
SS$_INTDIV, integer divide by zero 
SIDE EFFECTS: 
If integer overflow or Sly idereyozere occur, then the quotient 


operand is replaced by bits of the dividend operand, and the 
remainder is replaced by zero. 
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4000 ENTRY LIBSEDIV, “M<IV> ; Entry point 
3; IV must be enabled 
9E 3 MOVAB B*HANDLER, (FP) ; Enable local condition handler 
3; to intercept exceptions 
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Hib" Pheceuceion “ESREBCHBRE TF:BR:N0 WAYAUNE "965040479. 


EDIV @divisor(AP), adividend(AP), - 
@quotient(APS, aremainder (AP) 


he EDIV caused an exception, HANDLER will unwind to our caller 


t 
th the correct status. 


poy #SS$_NORMAL, RO ; Successful completion 
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LIBSEDIV - Execute EDIV instruction 15-SEP-1984 23:59: AX/VMS Macro V04-00 Page § 
1-001 LIBSEDIV = Execute EDIV instruction ~$Fe 1 38e qf :06: ‘Of LIBRTL.S REIL IBEDIV.MAR; 1 ° (4) 
1 145 ;+ 
1 148 3; Local condition handler to return $88 gf HtOW and SS$_INTDIV as return 
! 1? ; Statuses, all other exceptions resigna 
1 128 
1 150 HANDLER. 
0000 3 13] »wORD “M<> ; Entry mask 
50 08 AC 0 1 138 MOVL CHFSL_MCHARGLST(AP), RO ; Get poshenien args list address 
08 AO (OD 19 154 TSTL CHFSL-MCH_DEPTH(RO) Is nolo depth zero? LE 
1F if  . O35 BNEQ 90$ If not, resi Ll 
30 04 aC OD og 136 MOVL CHFSL_SIGARGLST(AP), RO; Get signal ates tet address LI 
0000047¢ 8F 04 A0 Di é 15 CMPL CHFSL"SIG_NAME(RO), #SS$_INTOVF LI 
6 A 158 ; Is it integer overflow? LI 
OA 13 A 159 BEQL 10$ ; If so, return with status LI 
00000484 8F 04 AO Di O002C # 160 CMPL CHFSL_SIG_NAME(RO), #SS$_ INTDIV LI 
034 161 ; Is it integer divide-by-zero? LI 
07 12 0034 16¢ BNEQ 90% ; If not, resignal Ok 
Q00000000'GF 6C FA 0036 1635 108: CALLG (AP), G*LIBS$SIG_TO_RET ; Return to our establisher's caller 
03D 164 ; gith condition code in 
50 00000918 8F DO 003D 165 90$: MOVL #SS$_RESIGNAL, RO ; ignal of aeae if we just called 
0044 196 3 tas 1G_T 
04 0044 16 RET 
0045 168 
0045 169 END ; End of module LIBSEDIV 
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The working set Limit was 1200 pages. : 
21140 bytes_(42 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 427 non-local and 2 local symbols. 
169 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define & macros. 


CHFSL_MCHARGLST = | 
CHFSL"MCH_DEPT = 
CHFSL_SIGARGLST = 4 
HFSL_SIG_N = 4 
1DEND = 8 
IVISOR = 00 4 
HANDLER 0 i3 R Os 
LIBSEDIV 0000000 RG 8 
LIBSSIG_TO_RET eeeeenee =X 0 
TIENT = £080 00E 
REMAINDER = 0000001 
SS$_INTDIV = 444 4 
SS$_INTOVF = 0000047C 
SS$_NORMAL = 00000001 
SS$~RESIGNAL = 00000918 
twee naman eeceeceoen + 
! Psect synopsis ! 
¢ meen ees moon nocacwe + 
PSECT name Allocation PSECT No. Attributes 
» WS » 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSCODE 00000045 ( 69.) G2 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
feet eco e cee mene neem em oen ee + 
! Performance indicators ! | 
Of ee ee 
Phase Page faults CPU Time Elapsed Time | 
Initialization 29 00:00:00.05 00:00:01.47 
Command processing Ie 4 33 00:00:03.36 
Pass 18 00:00:02.66 00:00:11.66 
Symbol table sort 0 00:00:00.41 00:00:01.71 
Pass 2 44 00: 8: 0.53 00:00:04.30 
Symbol table output 4 00:00:00.0 OF tae BOOS 
Psect synopsis output 2 00:00:00.0 0:00:00.0 
Cross-reference output 0 OF BO bef es St SS 
Assembler run totals 366 00:00:04.02 0:00:22.54 
| 
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; Macro Library statistics : 


Macro Library name Macros defined 


| 
| 

-$255$DUA28: (SYSLIBISTARLET .MLB; 2 5 
486 GETS were required to define 5 macros. 
| 
| 


‘2 
VAK1t Macro Run Statistics —~ “ecute EDIV Instruction B=SEb=18R2 $7:08:09 ECTERTL. SRESC BED IV oman; 1 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBEDIV/OBJ=OBJ$:LIBEDIV MSRC$:LIBEDIV/UPDATE=(ENHS$:LIBEDIV) 
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